This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Cmd+Shift+Enter.

install.packages("data.table")
Error in install.packages : Updating loaded packages
library(data.table)

install.packages("plotly")
Error in install.packages : Updating loaded packages
library(plotly)

install.packages("stringr")
Error in install.packages : Updating loaded packages
library(stringr)

install.packages("stringr")
Error in install.packages : Updating loaded packages
library(stringr)

install.packages("plyr")
Error in install.packages : Updating loaded packages
library(plyr)

Crawford

library(data.table)
library(plotly)
library(stringr)
library("moments")


#pre <- fread("CYSMN_Pre Survey_MODIFIED.csv")
ds2 <- fread("CYSMN_set_2.csv")

scentB <- ds2[ which(str_detect(ds2$ScentID, "B")),]
scentA <- ds2[ which(str_detect(ds2$ScentID, "A")),]




###******************************************************************###



##Time &&Selection Count for Data Set #2 Type A (LAVENDER)##
time_a <- c(scentA$Time1, scentA$Time2, scentA$Time3)
selection_count_a <- c(scentA$Count1, scentA$Count2, scentA$Count3)

##Time &&Selection Count for Data Set #2 Type B (ROSEMARY) ##
time_b <- c(scentB$Time1, scentB$Time2, scentB$Time3)
selection_count_b <- c(scentB$Count1, scentB$Count2, scentB$Count3)



###******************************************************************###

#############      Begin FINISH TIME Plots     ##############
ActivityMeasurements <- c("Completion Time in Seconds")
rosemary <- c(mean(time_b))
lavender <- c(mean(time_a))
data <- data.frame(ActivityMeasurements, rosemary, lavender)


# Calculate standard deviations
lavender_sd <- rbind(time_a)
rosemary_sd <- rbind(time_b)
lavender_sd_final <- apply(lavender_sd, 1, function(x) sd(x))
rosemary_sd_final <- apply(rosemary_sd, 1, function(x) sd(x))

fig <- plot_ly(data, x = ~ActivityMeasurements, y = ~rosemary, type = 'bar', name = 'Rosemary', error_y = ~list(array = c(sd(time_b)), color = '#000000'))


fig <- fig %>% add_trace(y = ~lavender, name = 'Lavender', error_y = ~list(array = c(sd(time_a)), color = '#000000'))


fig <- fig %>% layout(yaxis = list(title = 'Activity Duration in Seconds'), barmode = 'group')

fig




###******************************************************************###

#############      Begin SELECTION COUNT Plots     ##############
ActivityMeasurements <- c("User Clicks until Completion")
rosemary <- c(mean(selection_count_b))
lavender <- c(mean(selection_count_a))
data <- data.frame(ActivityMeasurements, rosemary, lavender)
rose_sd <- sd(selection_count_b)
lav_sd <- sd(selection_count_a)

# Calculate standard deviations
lavender_sd <- rbind(selection_count_a)
rosemary_sd <- rbind(selection_count_b)
lavender_sd_final <- apply(lavender_sd, 1, function(x) sd(x))
rosemary_sd_final <- apply(rosemary_sd, 1, function(x) sd(x))

fig <- plot_ly(data, x = ~ActivityMeasurements, y = ~rosemary, type = 'bar', name = 'Rosemary', error_y = ~list(array = c(rose_sd), color = '#000000'))


fig <- fig %>% add_trace(y = ~lavender, name = 'Lavender', error_y = ~list(array = c(lav_sd), color = '#000000'))


fig <- fig %>% layout(yaxis = list(title = 'Activity Clicks'), barmode = 'group')

fig

NA
NA
LS0tCnRpdGxlOiAiQ1lTTU4gRGF0YVNldDEiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KClRoaXMgaXMgYW4gW1IgTWFya2Rvd25dKGh0dHA6Ly9ybWFya2Rvd24ucnN0dWRpby5jb20pIE5vdGVib29rLiBXaGVuIHlvdSBleGVjdXRlIGNvZGUgd2l0aGluIHRoZSBub3RlYm9vaywgdGhlIHJlc3VsdHMgYXBwZWFyIGJlbmVhdGggdGhlIGNvZGUuIAoKVHJ5IGV4ZWN1dGluZyB0aGlzIGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqUnVuKiBidXR0b24gd2l0aGluIHRoZSBjaHVuayBvciBieSBwbGFjaW5nIHlvdXIgY3Vyc29yIGluc2lkZSBpdCBhbmQgcHJlc3NpbmcgKkNtZCtTaGlmdCtFbnRlciouIAoKYGBge3J9Cmluc3RhbGwucGFja2FnZXMoImRhdGEudGFibGUiKQpsaWJyYXJ5KGRhdGEudGFibGUpCgppbnN0YWxsLnBhY2thZ2VzKCJwbG90bHkiKQpsaWJyYXJ5KHBsb3RseSkKCmluc3RhbGwucGFja2FnZXMoInN0cmluZ3IiKQpsaWJyYXJ5KHN0cmluZ3IpCgppbnN0YWxsLnBhY2thZ2VzKCJzdHJpbmdyIikKbGlicmFyeShzdHJpbmdyKQoKaW5zdGFsbC5wYWNrYWdlcygicGx5ciIpCmxpYnJhcnkocGx5cikKYGBgCgpDcmF3Zm9yZCAKYGBge3J9CmxpYnJhcnkoZGF0YS50YWJsZSkKbGlicmFyeShwbG90bHkpCmxpYnJhcnkoc3RyaW5ncikKbGlicmFyeSgibW9tZW50cyIpCgoKI3ByZSA8LSBmcmVhZCgiQ1lTTU5fUHJlIFN1cnZleV9NT0RJRklFRC5jc3YiKQpkczIgPC0gZnJlYWQoIkNZU01OX3NldF8yLmNzdiIpCgpzY2VudEIgPC0gZHMyWyB3aGljaChzdHJfZGV0ZWN0KGRzMiRTY2VudElELCAiQiIpKSxdCnNjZW50QSA8LSBkczJbIHdoaWNoKHN0cl9kZXRlY3QoZHMyJFNjZW50SUQsICJBIikpLF0KCgoKCiMjIyoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiMjIwoKCgojI1RpbWUgJiZTZWxlY3Rpb24gQ291bnQgZm9yIERhdGEgU2V0ICMyIFR5cGUgQSAoTEFWRU5ERVIpIyMKdGltZV9hIDwtIGMoc2NlbnRBJFRpbWUxLCBzY2VudEEkVGltZTIsIHNjZW50QSRUaW1lMykKc2VsZWN0aW9uX2NvdW50X2EgPC0gYyhzY2VudEEkQ291bnQxLCBzY2VudEEkQ291bnQyLCBzY2VudEEkQ291bnQzKQoKIyNUaW1lICYmU2VsZWN0aW9uIENvdW50IGZvciBEYXRhIFNldCAjMiBUeXBlIEIgKFJPU0VNQVJZKSAjIwp0aW1lX2IgPC0gYyhzY2VudEIkVGltZTEsIHNjZW50QiRUaW1lMiwgc2NlbnRCJFRpbWUzKQpzZWxlY3Rpb25fY291bnRfYiA8LSBjKHNjZW50QiRDb3VudDEsIHNjZW50QiRDb3VudDIsIHNjZW50QiRDb3VudDMpCgoKCiMjIyoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiMjIwoKIyMjIyMjIyMjIyMjIyAgICAgIEJlZ2luIEZJTklTSCBUSU1FIFBsb3RzICAgICAjIyMjIyMjIyMjIyMjIwpBY3Rpdml0eU1lYXN1cmVtZW50cyA8LSBjKCJDb21wbGV0aW9uIFRpbWUgaW4gU2Vjb25kcyIpCnJvc2VtYXJ5IDwtIGMobWVhbih0aW1lX2IpKQpsYXZlbmRlciA8LSBjKG1lYW4odGltZV9hKSkKZGF0YSA8LSBkYXRhLmZyYW1lKEFjdGl2aXR5TWVhc3VyZW1lbnRzLCByb3NlbWFyeSwgbGF2ZW5kZXIpCgoKIyBDYWxjdWxhdGUgc3RhbmRhcmQgZGV2aWF0aW9ucwpsYXZlbmRlcl9zZCA8LSByYmluZCh0aW1lX2EpCnJvc2VtYXJ5X3NkIDwtIHJiaW5kKHRpbWVfYikKbGF2ZW5kZXJfc2RfZmluYWwgPC0gYXBwbHkobGF2ZW5kZXJfc2QsIDEsIGZ1bmN0aW9uKHgpIHNkKHgpKQpyb3NlbWFyeV9zZF9maW5hbCA8LSBhcHBseShyb3NlbWFyeV9zZCwgMSwgZnVuY3Rpb24oeCkgc2QoeCkpCgpmaWcgPC0gcGxvdF9seShkYXRhLCB4ID0gfkFjdGl2aXR5TWVhc3VyZW1lbnRzLCB5ID0gfnJvc2VtYXJ5LCB0eXBlID0gJ2JhcicsIG5hbWUgPSAnUm9zZW1hcnknLCBlcnJvcl95ID0gfmxpc3QoYXJyYXkgPSBjKHNkKHRpbWVfYikpLCBjb2xvciA9ICcjMDAwMDAwJykpCgoKZmlnIDwtIGZpZyAlPiUgYWRkX3RyYWNlKHkgPSB+bGF2ZW5kZXIsIG5hbWUgPSAnTGF2ZW5kZXInLCBlcnJvcl95ID0gfmxpc3QoYXJyYXkgPSBjKHNkKHRpbWVfYSkpLCBjb2xvciA9ICcjMDAwMDAwJykpCgoKZmlnIDwtIGZpZyAlPiUgbGF5b3V0KHlheGlzID0gbGlzdCh0aXRsZSA9ICdBY3Rpdml0eSBEdXJhdGlvbiBpbiBTZWNvbmRzJyksIGJhcm1vZGUgPSAnZ3JvdXAnKQoKZmlnCgoKCiMjIyoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiMjIwoKIyMjIyMjIyMjIyMjIyAgICAgIEJlZ2luIFNFTEVDVElPTiBDT1VOVCBQbG90cyAgICAgIyMjIyMjIyMjIyMjIyMKQWN0aXZpdHlNZWFzdXJlbWVudHMgPC0gYygiVXNlciBDbGlja3MgdW50aWwgQ29tcGxldGlvbiIpCnJvc2VtYXJ5IDwtIGMobWVhbihzZWxlY3Rpb25fY291bnRfYikpCmxhdmVuZGVyIDwtIGMobWVhbihzZWxlY3Rpb25fY291bnRfYSkpCmRhdGEgPC0gZGF0YS5mcmFtZShBY3Rpdml0eU1lYXN1cmVtZW50cywgcm9zZW1hcnksIGxhdmVuZGVyKQpyb3NlX3NkIDwtIHNkKHNlbGVjdGlvbl9jb3VudF9iKQpsYXZfc2QgPC0gc2Qoc2VsZWN0aW9uX2NvdW50X2EpCgojIENhbGN1bGF0ZSBzdGFuZGFyZCBkZXZpYXRpb25zCmxhdmVuZGVyX3NkIDwtIHJiaW5kKHNlbGVjdGlvbl9jb3VudF9hKQpyb3NlbWFyeV9zZCA8LSByYmluZChzZWxlY3Rpb25fY291bnRfYikKbGF2ZW5kZXJfc2RfZmluYWwgPC0gYXBwbHkobGF2ZW5kZXJfc2QsIDEsIGZ1bmN0aW9uKHgpIHNkKHgpKQpyb3NlbWFyeV9zZF9maW5hbCA8LSBhcHBseShyb3NlbWFyeV9zZCwgMSwgZnVuY3Rpb24oeCkgc2QoeCkpCgpmaWcgPC0gcGxvdF9seShkYXRhLCB4ID0gfkFjdGl2aXR5TWVhc3VyZW1lbnRzLCB5ID0gfnJvc2VtYXJ5LCB0eXBlID0gJ2JhcicsIG5hbWUgPSAnUm9zZW1hcnknLCBlcnJvcl95ID0gfmxpc3QoYXJyYXkgPSBjKHJvc2Vfc2QpLCBjb2xvciA9ICcjMDAwMDAwJykpCgoKZmlnIDwtIGZpZyAlPiUgYWRkX3RyYWNlKHkgPSB+bGF2ZW5kZXIsIG5hbWUgPSAnTGF2ZW5kZXInLCBlcnJvcl95ID0gfmxpc3QoYXJyYXkgPSBjKGxhdl9zZCksIGNvbG9yID0gJyMwMDAwMDAnKSkKCgpmaWcgPC0gZmlnICU+JSBsYXlvdXQoeWF4aXMgPSBsaXN0KHRpdGxlID0gJ0FjdGl2aXR5IENsaWNrcycpLCBiYXJtb2RlID0gJ2dyb3VwJykKCmZpZwoKCmBgYAoKCgoKCgoKCgoK